delphi汉字排序 工具源码

【例子介绍】

自己用DELPHI写的一款汉字排序实用程序，主要解决嵌入式应用编程中有关自定义汉字的排序。此软件可自动剔除排序前字符串中的ASCII码字符以及重复汉字，然后自动按汉字机内码排序，同时统计排序前后的字符数。

【相关图片】

【源码结构】

function TfrmMain.RemoveAscii: AnsiString;
var
  i,len: Integer;
  szText: AnsiString;
  szLine: AnsiString;
begin
  szText := AnsiString(MemoSource.Text);
  len := Length(szText);
  i := 1;
  szLine := '';
  while len > i do
  begin
    if len > i 1 then
    begin
      if (Ord(szText[i]) >= $81) and (Ord(szText[i 1]) >= $40) then
      begin
        szLine := szLine szText[i] szText[i 1];
        Inc(i, 2);
      end else
        Inc(i);
    end else
      Inc(i);
  end;
  Result := szLine;
end;